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POLLUTION GAME 


DECUS Program Library Write-up 


DEGUS NO. 8-346 


Answer to "How Many Times Have You Played" 

"0" For full explanation 
"500" For no explanation 
"1000" To continue an old game 

Answer all 0's to questions to quit game and continue later. 


LIST 

1 REM JIM STORER 

9 PRINT "HOW MANY TIMES HAVE YOU PLAYED"? • , 

3 INPUT 7, 

5 LET N5=8 

6 RANDOMIZE 

. 12 IF Z=500 THEN 47 
14 IF Z-1000 THEN 1960 

17 FOR Yl=1 TO 10 

18 PRINT , 

19 4HE8T‘'Y1 . . v ,v. 

.20 PRINT "CONGRATULATIONS! YOU’VE BEEN ELECTED PREMIER OF SETATS DETIU 
22 PRINT "A.SMALL COMMUNIST ISLAND 30 BY 70 MILES LONG. YOUR JOB IS TO 
24 PRINT "DECIDE UPON THE COUNTRY’S BUDGET AND DISTRIBUTE MONEY TO YOU 

26 PRINT "COUNTRYMEN FROM THE COMMUNAL TREASURY.”? 

27 IF Z<>0 THEN 47 

~ 28 PRINT " THE MONEY SYSTEM IS RALLODS*" 

30 PRINT "AND EACH PERSON NEEDS 100 RALLODS PER YEAR TO SURVIVE.” 

32 PRINT ’’YOUR COUNTRY’S INCOME COMES FROM FARM PRODUCE AND TOURISTS" 
34 PRINT "VISITING YOUR MAGNIFICIENT FORESTS* HUNTING* FISHING* ETC. H 
36 PRINT "YOUR LAND IS FARM LAND WHICH ALSO HAS AN EXCELLENT MINERAL" 

38 PRINT "CONTENT AND MAY BE SOLD TO FOREIGN INDUSTRY (STRIP MINING)” 

39 PRINT "WHO IMPORT AND SUPPORT THEIR OWN WORKERS.. CROPS COST BETWEEN 

40 PRINT "10 AND 15 RALLODS PER SO. MILE TO PLANT.” 

' 42 PRINT "YOUR GOAL IS TO COMPLETE YOUR”?N5?"YEAR TERM OF OFFICE.”? 

44 PRINT " GOOD LUCK!" 

47 FOR Y1=1 TO 4 

48 PRINT 

49 NEXT Y1 

50 LET A=INTC60000+CRNDC1)*1000)-CRNDC1)*1000)) 

55 LET B=INTC500+CRNDC1)*10)-CRNDC1)*10) ) 

65 LET D=2000 

100 LET W=>INTCRNDC 1 )*10+95) 

101 FOR Yl=1 TO 8 

102 PRINT 

103 NEXT Y1 

105 PRINT "YOU NOW HAVE”?A?"RALLODS IN THE TREASURY.” 

110 PRINT INTCB)?"COUNTRYMEN*"? 

,115 LET V9-INTCCCRNDC1)/2)*10+10) ) 











120 IF C=0 THEN 140 

130 PRINT INTCC) 3 "FOREIGN WORKERS*’’; 

140 PRINT M AND";INTCD);"SQ. MILES OF LAND.” 

150 PRINT"THIS YEAR INDUSTRY WILL BUY LAND FOR”J WJ "RALLODS PER SO. MILK 
155 PRINT ’’LAND CURRENTLY COSTS”;V9;"RALLODS PER - SO. MILE TO PLANT.” 

J60 FO R Y 1 = 1 TO 3 ____.__ 

162 PRINT 
164 NEXT Y1 

I 200 PRINT "HOW MANY SQ. MILES DO YOU WISH TO SELL TO INDUSTRY”; 

210 INPUT H 

215 IF H<0 THEN 200 

220 IF H< S D”1000 THEN 300 

230 PRINT ” THINK AGAIN* YOU’VE ONLY”;D-1000 i "SO. MILES OF FARM LAND 
240 IF X <> 0 THEN 200 

250 PRINT "(FOREIGN INDUSTRY WILL ONLY BUY FARM LAND BECAUSE FOREST" 

260 PRINT "LAND IS UNECONOMICAL TO STRIP MINE DUE TO TREES*" 

270 PRINT "THICKER, TOP SOIL* ETC.)" 

280 LET X=1 * 

r 299 GOTO 200 

300 LET D=INTCD-H> 

310 LET A=INTCA+(H*W)> 

320 PRINT "HOW MANY RALLODS DO YOU WISH TO DISTRIBUTE TO YOUR COUNTRYM1 
340 INPUT I 

< 342 IF I<0 THEN 320 

350 IF I<A THEN 400 
360 IF I=A THEN 380 

370 PRINT " THINK AGAIN YOU’VE ONLY”;A;"RALLODS IN THE TREASURY" 

375 GOTO 320. 

380 LET J=0 
390 LET K=0 

395 LET A=0 . , 

399 GOTO 1000 

400 LET A=INTCA-I) 

410 PRINT "HOW MANY SO* MILES DO YOU WISH TO PLANT”; 

420 INPUT J 

421 IF J<0 THEN 410 

422 IF U<=B*2 THEN 426 V 

423 PRINT " SORRY* BUT EACH COUNTRYMAN CAN ONLY PLANT 2 SQ. MILES" 

424 GOTO 410 , 

426 IF J< = DM000 THEN 430 

427 PRINT " SORRY* BUT YOU’VE ONLY";D-1000;"SQ. MILES OF FARM LAND" 

428 GOTO 410 , 

430 LET U1 = INT(J*V9 > 

435 IF U1<A THEN 500 
440 IF U1«A THEN 490 

450 PRINT ’* THINK AGAIN* YOU’VE ONLY"; A J "RALLODS LEFT IN THE TREASU1? 
460 GOTO 410 
490 LET K=0 
495 LET A=0 

499 GOTO 1000 

500 LET A=A-U1 ’ 

505' IF D=2000 THEN 1000 

510 PRINT "HOW MANY RALLODS DO YOU WISH TO SPEND ON POLLUTION CONTROL”; 
520 INPUT K . ' 

522 IF K<0 THEN 510 
530 IF K<=A THEN 1000 

540 PRINT " THINK AGAIN* YOU’VE ONLY";A)"RALLODS REMAINING" 

550 GOTO- 510 . 
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600 IF H<>0 THEN 1005 

602 IF I<>0 THEN 1002 

60 A IF J<>0 THEN 1002 

606 IF K<>0 THEN 1002 

608 FOR Yl*i TO 5 

609 PRINT 

610 NEXT Y1 

612 PRINT "GOODBYE.” 

111 ~I»I !!”L Y0 H WISH T ° C0NTINtIE ™IS 6A ME AT A later DATE, ANSWER 

617 PRINT »*GAWE 5« R H ° W MA * Y TIMES Y0U,VS PLAYED# AT BEGINNING OF NEXT 

618 GOTO 1590 . * • ~ ••• * ■ .. 

1000 GOTO 600 

1002 FOR Yl*l TO 3 

1003 PRINT 

1004 NEXT Y1 

1010 LET A*TNTCA-H) 

1020 LET A4*A 

1100 IF INTCI/100-B?*»0 THEN 1120 . 

1105 IF I/100<50 THEN 1700 

1110 PRINT INTCB-C1/100? ??"COUNTRYMKN DIED OF STARVATION” 

1120 LET FI**INTCRNDC 1 ?*<2000-D? ? 

1122 IF K«25 THEN 1130 
1125 LET F1*INT<F1/CK/2S?? 

1130 IF F1<*0 THEN U50 

1140 PRINT FI?"COUNTRYMEN -DIED OF CARBON-MONOXIDE AND DUST INHALATION” 
*1150 IF INT<CI/I00?-B?«0 THEN 1170 
1160 IF F1>0 THEN 1180 
1165 GOTO 1200 

1170 PRINT ” YOU WERE FORCED TO SPEND”? INTC fFl+fg- Cl/100? ? ?*9?? 

1172 PRINT ”RALLODS ON FUNERAL EXPENSES*” 

1174 .LET B5»lNT<Fl«KB-C 1/100??? 

1175 LET A«lNT<A-<CFl*CB*n/100??>*9?> 

1176 GOTO 1185 

1180 PRINT ” YOU WERE FORCED TO SPEND”?TNT(F1*9>?"RALL0DS ON ”? 

1181 PRINT "FUNERAL EXPENSES*” 

1182 LET 35*F1 

1183 LET A-INT<A-CF1*9?? 

1185 IF A>*0 THEN 1194 

1187 PRINT ” INSUFFICIENT RESERVES TO COVER COST -LAND WAS SOLD” • 

1189 LET D«INTCD*C4/W?? 

1190 LET A»0 

1194 LET 3*INTCB*B5? 

.1200 IF H«0 THEN 1250 


1220 LET C1*INT(H-KRND< 1 ?*10?«CRNl?f 1?*20?? 

1224 IF C>0 THEN 1230 
1226 LET Cl*Ct+20 

1230 PRINT Cl;”WORKERS CAME TO THE COUNTRY AND”? 

1250 LET Pl»INT(C(I/100-B?/10?+(K/25?-CC2000-D?/50?-CFl/2?) 
1255 PRINT ABS<Pl??"COUNTRYMEN ”? 

1260 IF P190 THEN 1275 
1265 PRINT "CAME TO”? * 

1270 GOTO 1280 
1275 PRINT "LEFT”? 

1280 PRINT ” THE ISLAND.” 

1290 LET B*INT<B+p’l> 

1292 LET C*INTCC+C1? 
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1305 LET U2=INT< C <2000-D ) * <CRND(1) + l.5 5/3))) 

1310 IF C=0 THEN 1324 

1320 PRINT " OF";INTCJ>J"SQ« MILES PLANTED#”5 
1324 IF J>U2 THEN 1330 
1326 LET U2=J 

1330 PRINT " YOU HARVESTED";INTCJ-U2);"SQ. MILES OF CROPS.” 

1340 IF U2=0 THEN 1370 
1344 IF Tl>=2 THEN 1370 

1350 PRINT ” (DUE TO . 

1355 IF T1=0 THEN 1365 ( 

1360 PRINT "INCREASED "; 

1365 PRINT "AIR AND WATER POLLUTION FROM FOREIGN INDUSTRY.)" 

1367 LET T1*T1+1 

1370 LET 0=INT<<J-U2)*(W/2)) 

1380 PRINT " MAKING";INT(Q);”RALLODS." 

1390 LET A*INT(A+Q) 

1400 let jjj&itauix*smix - —.- .— 

1405 LET V2=INT(C2000“D)*15) . 

1410 PRINT ” YOU MADE";ABS(INT(V1-V2));"RALL0DS FROM TOURIST TRADE." 

1420 IF V2=0 THEN 1450 

1425 IF V1-V2>=V3 THEN 1450 

1430 PRINT " DECREASE BECAUSE "; 

1435 LET G1”RND<1 )*10 
1440 IF G1<=2 THEN 1460 

1442 IF Gl<=4 THEN 1465 

1444 IF Gl<=6 THEN 1470 

1446 IF Gl<=8 THEN 1475 

1448 IF G1<=10 THEN 1480 

1450 LET V3=INT(V1-V2) 

1451 LET A=INT(A+V3) 

.1452 GOTO 1500 

1460 PRINT "FISH POPULATION HAS DWINDLED DUE TO WATER POLLUTION.". 
1462 GOTO 1450 

1465 PRINT "AIR POLLUTION IS KILLING GAME BIRD POPULATION.” 

1467 GOTO 1450 

1470 PRINT "MINERAL BATHS ARE BEING RUINED BY WATER POLLUTION.” 

1472 GOTO 1450 

1475 PRINT "UNPLEASANT SMOG IS DISCOURAGING SUN BATHERS." 

1477 GOTO 1450 

1480 PRINT. "HOTELS ARE LOOKING SHABBY DUE TO SMOG GRIT.” 

1482 GOTO 1450 

1500 IF B5>200 THEN 1600 

1505 IF B<343 THEN 1700 

1510 IF <A4/100)>5 THEN 1800 

1515 IF C>B THEN 1550 

1520 IF N5“1=X5 THEN 1900 

1545 GOTO 2000 

1550 FOR Yl=l TO 8 

1552 PRINT 

1555 NEXT Y1 

1560 PRINT "THE NUMBER OF FOREIGN WORKERS HAS EXCEEDED THE NUMBER" 
1562 PRINT "OF COUNTRYMEN. AS A MAJORITY THEY HAVE REVOLTED AND” 

1564 PRINT "TAKEN OVER THE COUNTRY." 

1570 IF RNDC1)<=.5 THEN 1580 

.1574 PRINT "YOU HAVE BEEN THROWN OUT OF OFFICE AND YOU ARE NOW" 

1576 PRINT "RESIDING IN PRISION." 

1578 GOTO 1590 

1583 PRINT "YOU HAVEJ3EEN ASSASSINATE D." __ 
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1590 

1599 
1594 
1596 

1600 

1609 
1605 

1610 
1615 
1690 

1699 
1695 
1630 
1635 
1670 
1672 
1680 
1682 
1690 
1692 

1700 

1705 

1710 

1715 

1720 

1730 

1800 

1805 

1807 

1810 

1815 

1820 

1825 

1830 

1835 

1840 

1845 

1850 

1900 

1909 

1905 

1920 

1925 

1930 

1935 

1940 

1945 

1950 

1960 

1961 

1962 

1963 
1965 
1967 

1969 

1970 


FOR Yl = l to 18 

PRINT 

NEXT Y1 

STOP 

FOR Y1=1 TO 8 

PRINT 

NEXT Y1 

PRINT B5?’’C0TJNTYRMEN DIED IN ONE YEAR!!!!!”. 

PRINT "DUE TO THIS EXTREME MISMANAGEMENT YOU HAVE NOT ONLY” 

PRINT ”BEEN IMPEACHED AND THROWN OUT OF OFFICE BUT YOU” 

LET M6=INT(RND<1)*10) 

IF M6<=3 THEN 1670 
IF M6<=6 THEN 1680 
IF M6<=10 THEN 1690 

PRINT "ALSO HAD YOUR LEFT EYE GOUGED OUT.” 

GOTO 1590 

PRINT "HAVE ALSO GAINED A VERY BAD REPUTATION*” 

GOTO 1590 

PRINT "HAVE ALSO BEEN DECLARED NATIONAL FINK.” 

GOTO 1590 

FOR Yl=1 TO 8 
PRINT ~ ■' 

NEXT Y1 

PRINT "OVER ONE THIRD OF THE POPULATION HAS DIED SINCE YOU" 

PRINT "WERE ELECTED TO OFFICE. THE PROPLE (REMAINING)” 

PRINT "HATE YOUR GUTS.” 

GOTO 1570 

IF B5-F1<2 THEN 1515 
FOR Yl=l TO 8 
PRINT 
NEXT Y1 

PRINT "MONEY WAS LEFT OVER IN THE TREASURY WHICH YOU DID” 

PRINT "NOT SPEND. AS A RESULT SOME OF YOUR COUNTRYMEN DIED” 

PRINT "OF STARVATION. THE PUBLIC IS ENRAGED AND YOU HAVE” 

PRINT "BEEN FORCED TO EITHER RESIGN OR COMMIT SUCIDE” 

PRINT "THE CHOICE IS YOURS.” 

PRINT "IF YOU CHOOSE THE LATTER# PLEASE TURN OFF YOUR TTY”# 

PRINT ” BEFORE PROCEEDING." 

GOTO 1590 . 

FOR Y1=1 TO 8 

PRINT 

NEXT Y1 

PRINT "CONGRATULATIONS!!!!!!!!!!!»»!!!!” 

PRINT "YOU HAVE SUCCESSFULLY COMPLETED YOUR”?N5?"YEAR TERM” 

PRINT "OF OFFICE. YOU WERE# OF COURSE# EXTREMELY LUCKY# BUT NEVER ! 
PRINT "LESS# IT’S QUITE AN ACHIEVEMENT. GOODBY AND GOOD LUCK -YOU’l 
PRINT "PROBABLY NEED IT IF YOU’RE THE TYPE THAT PLAYS THIS GAME.” 
PRINT ” -FOR FURTHER THRILLS# TRY LANDING ON THE MOON” 

GOTO 1590 

PRINT "HOW MANY YEARS HAD YOU BEEN IN OFFICE WHEN INTERRUPTED”.? 
INPUT-.X5 

IF X5<0 THEN 1590 
IF X5<8 THEN 1969 

PRINT ” COME ON# YOUR TERM OF OFFICE IS 0NLY"?N5?"YEARS” 

GOTO I960 

PRINT "HOW MUCH DID YOU HAVE IN THE TREASURY"? 

INPUT A 






1971 IF A<0 THEN 1590 

1975 PRINT "HOW MANY COUNTRYMEN"; 

1976 INPUT B 

1977 IF 3<0 THEN 1590 

1980 PRINT "HOW MANY WORKERS"; 

1981 INPUT C 

1982 IF C<0 THEN 1590 

1990 PRINT "HOW MANY SQ. MILES OF LAND"; 

1991 INPUT D 

1992 IF D<0 THEN 1590 

1993 IF D>2000 THEN 1996 

1994 IF D>1000 THEN 100 

1996 PRINT " COME ON* YOU STARTED WITH 1000 SO. MILES OF FARM LAND" 

1997 PRINT ” AND 1000 SO. MILES OF FOREST LAND" 

1998 GOTO 1990 
2000 LET X5=X5+1 
2020 LET B5=0 
2040 GOTO 100 
2046 END 

READY 
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